home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 November / 64er_Magazin_90-11_1990_Markt__Technik_de_Side_A.d64 / pascal 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  217b  |  13 lines
  1. 10 print"[147]":rem pascal'sches dreieck
  2. 20 print"pascal'sches dreieck"
  3. 30 print"********************"
  4. 40 dimk(20):k(10)=1
  5. 50 printtab(20) 1
  6. 60 fora=1to9
  7. 70 forr=10-ato10+astep2
  8. 80 k(r)=k(r-1)+k(r+1)
  9. 90 printtab(20-2*a)k(r);
  10. 100 nextr
  11. 110 print:print
  12. 120 nexta
  13.